counting in r programming